Eagles Nest BBS 8

home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Environments / AAISProlog / Examples / font size menu.p < prev next >
MacBinary | 1992-04-06 | 3.5 KB | [TEXT/AIFC]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Mon Apr 6 21:48:27 1992, modified Mon Apr 6 21:48:27 1992, creator 'AIFC', type ASCII, 3000 bytes "font size menu.p" , at 0xc38 380 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[AIFC]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 66 6f 6e 74 20 73 | 69 7a 65 20 6d 65 6e 75 |..font s|ize menu|
|00000010| 2e 70 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.p......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 49 46 | 43 01 00 00 00 00 00 00 |.TEXTAIF|C.......|
|00000050| 00 00 00 00 00 0b b8 00 | 00 01 7c a6 06 af eb a6 |........|..|.....|
|00000060| 06 af eb 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 96 a4 00 00 |........|........|
|00000080| 2f 2a 0d a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |/*......|........|
|00000090| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000000a0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000000b0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000000c0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 0d |........|........|
|000000d0| 46 6f 6e 74 20 53 69 7a | 65 20 4d 65 6e 75 2e 70 |Font Siz|e Menu.p|
|000000e0| 20 3a 20 43 72 65 61 74 | 65 73 20 61 20 73 75 62 | : Creat|es a sub|
|000000f0| 20 6d 65 6e 75 20 66 6f | 72 20 66 6f 6e 74 20 73 | menu fo|r font s|
|00000100| 69 7a 65 20 73 65 6c 65 | 63 74 69 6f 6e 2e 0d 0d |ize sele|ction...|
|00000110| 43 6f 70 79 72 69 67 68 | 74 2c 20 a9 20 31 39 39 |Copyrigh|t, . 199|
|00000120| 32 20 41 64 76 61 6e 63 | 65 64 20 41 2e 20 49 2e |2 Advanc|ed A. I.|
|00000130| 20 53 79 73 74 65 6d 73 | 2c 20 49 6e 63 2e 0d 41 | Systems|, Inc..A|
|00000140| 6c 6c 20 72 69 67 68 74 | 73 20 72 65 73 65 72 76 |ll right|s reserv|
|00000150| 65 64 2e 0d 54 68 69 73 | 20 66 69 6c 65 20 6d 61 |ed..This| file ma|
|00000160| 79 20 6e 6f 74 20 62 65 | 20 63 6f 70 69 65 64 20 |y not be| copied |
|00000170| 6f 72 20 64 69 73 74 72 | 69 62 75 74 65 64 20 77 |or distr|ibuted w|
|00000180| 69 74 68 6f 75 74 20 74 | 68 65 20 0d 77 72 69 74 |ithout t|he .writ|
|00000190| 74 65 6e 20 70 65 72 6d | 69 73 73 69 6f 6e 20 6f |ten perm|ission o|
|000001a0| 66 20 41 64 76 61 6e 63 | 65 64 20 41 2e 20 49 2e |f Advanc|ed A. I.|
|000001b0| 20 53 79 73 74 65 6d 73 | 2c 20 49 6e 63 2e 0d a5 | Systems|, Inc...|
|000001c0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000001d0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000001e0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000001f0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|00000200| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 0d 43 6f 6e 73 |........|....Cons|
|00000210| 75 6c 74 20 74 68 69 73 | 20 66 69 6c 65 2c 20 61 |ult this| file, a|
|00000220| 6e 64 20 69 74 20 77 69 | 6c 6c 20 73 65 74 20 66 |nd it wi|ll set f|
|00000230| 6f 6e 74 20 73 69 7a 65 | 20 69 74 65 6d 20 69 6e |ont size| item in|
|00000240| 20 74 68 65 0d 66 6f 72 | 6d 61 74 20 6d 65 6e 75 | the.for|mat menu|
|00000250| 20 77 69 6c 6c 20 62 65 | 20 63 68 61 6e 67 65 64 | will be| changed|
|00000260| 20 74 6f 20 68 61 76 65 | 20 61 20 73 75 62 20 6d | to have| a sub m|
|00000270| 65 6e 75 20 77 69 74 68 | 20 61 20 6c 69 73 74 20 |enu with| a list |
|00000280| 6f 66 0d 6f 70 74 69 6f | 6e 73 2e 20 20 0d 0d 54 |of.optio|ns.  ..T|
|00000290| 68 69 73 20 72 65 71 75 | 69 72 65 73 20 74 68 65 |his requ|ires the|
|000002a0| 20 66 6f 72 6d 61 74 20 | 6d 65 6e 75 20 74 68 61 | format |menu tha|
|000002b0| 74 20 69 73 20 64 65 66 | 69 6e 65 64 20 69 6e 20 |t is def|ined in |
|000002c0| 0d 22 3a 3a 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 3a |."::envi|ronment:|
|000002d0| 66 6f 72 6d 61 74 20 6d | 65 6e 75 2e 70 22 20 74 |format m|enu.p" t|
|000002e0| 6f 20 62 65 20 64 65 66 | 69 6e 65 64 2e 20 20 54 |o be def|ined.  T|
|000002f0| 68 61 74 0d 6d 65 6e 75 | 20 69 73 20 75 73 65 64 |hat.menu| is used|
|00000300| 20 69 6e 20 74 68 65 20 | 73 74 61 6e 64 61 72 64 | in the |standard|
|00000310| 20 70 72 6f 67 72 61 6d | 6d 69 6e 67 20 65 6e 76 | program|ming env|
|00000320| 69 72 6f 6e 6d 65 6e 74 | 0d 70 72 6f 76 69 64 65 |ironment|.provide|
|00000330| 64 20 69 6e 20 41 41 49 | 53 20 46 75 6c 6c 20 43 |d in AAI|S Full C|
|00000340| 6f 6e 74 72 6f 6c 20 50 | 72 6f 6c 6f 67 2e 0d 0d |ontrol P|rolog...|
|00000350| 49 66 20 79 6f 75 20 77 | 69 73 68 20 74 6f 20 63 |If you w|ish to c|
|00000360| 68 65 63 6b 20 74 68 65 | 20 63 75 72 72 65 6e 74 |heck the| current|
|00000370| 20 66 6f 6e 74 2c 20 79 | 6f 75 20 77 69 6c 6c 20 | font, y|ou will |
|00000380| 6e 65 65 64 20 74 6f 0d | 6d 6f 64 69 66 79 20 74 |need to.|modify t|
|00000390| 68 65 20 63 6f 64 65 20 | 66 6f 72 20 61 63 74 69 |he code |for acti|
|000003a0| 76 61 74 65 2f 64 65 61 | 63 74 69 76 61 74 65 20 |vate/dea|ctivate |
|000003b0| 69 6e 0d 22 3a 3a 65 6e | 76 69 72 6f 6e 6d 65 6e |in."::en|vironmen|
|000003c0| 74 3a 62 61 73 69 63 20 | 64 69 61 6c 6f 67 2e 70 |t:basic |dialog.p|
|000003d0| 22 20 66 6f 72 20 74 65 | 78 74 20 65 6e 74 72 79 |" for te|xt entry|
|000003e0| 20 6f 62 6a 65 63 74 73 | 2e 0d 4c 6f 6f 6b 20 66 | objects|..Look f|
|000003f0| 6f 72 20 77 68 65 72 65 | 20 77 65 20 63 68 65 63 |or where| we chec|
|00000400| 6b 20 74 68 65 20 66 6f | 72 6d 61 74 20 6d 65 6e |k the fo|rmat men|
|00000410| 75 20 66 6f 72 20 74 68 | 65 20 63 75 72 72 65 6e |u for th|e curren|
|00000420| 74 0d 66 6f 6e 74 20 61 | 6e 64 20 61 64 64 20 63 |t.font a|nd add c|
|00000430| 6f 64 65 20 66 6f 72 20 | 63 68 65 63 6b 69 6e 67 |ode for |checking|
|00000440| 20 74 68 65 20 66 6f 6e | 74 20 73 69 7a 65 20 6d | the fon|t size m|
|00000450| 65 6e 75 2e 0d 54 6f 20 | 66 69 6e 64 20 74 68 65 |enu..To |find the|
|00000460| 73 65 20 64 65 66 69 6e | 69 74 69 6f 6e 73 20 79 |se defin|itions y|
|00000470| 6f 75 20 63 61 6e 20 75 | 73 65 20 74 68 65 20 66 |ou can u|se the f|
|00000480| 69 6e 64 20 64 65 66 69 | 6e 69 74 69 6f 6e 0d 63 |ind defi|nition.c|
|00000490| 6f 6d 6d 61 6e 64 20 28 | 63 6f 6d 6d 61 6e 64 2d |ommand (|command-|
|000004a0| 68 29 2e 0d 4c 6f 6f 6b | 20 66 6f 72 20 73 65 74 |h)..Look| for set|
|000004b0| 5f 6d 65 6e 75 5f 69 74 | 65 6d 5f 69 6e 66 6f 20 |_menu_it|em_info |
|000004c0| 77 68 65 72 65 20 74 68 | 65 20 74 68 69 72 64 20 |where th|e third |
|000004d0| 61 72 67 75 6d 65 6e 74 | 20 69 73 0d 63 68 65 63 |argument| is.chec|
|000004e0| 6b 65 64 2e 20 20 54 68 | 69 73 20 69 73 20 77 68 |ked.  Th|is is wh|
|000004f0| 65 72 65 20 74 68 65 20 | 66 6f 6e 74 20 69 73 20 |ere the |font is |
|00000500| 62 65 69 6e 67 20 63 68 | 65 63 6b 65 64 2e 20 20 |being ch|ecked.  |
|00000510| 54 68 69 73 0d 69 73 20 | 69 6e 73 69 64 65 20 74 |This.is |inside t|
|00000520| 68 65 20 6c 6f 63 61 6c | 20 66 75 6e 63 69 74 6f |he local| funcito|
|00000530| 6e 20 74 65 78 74 5f 65 | 6e 74 72 79 5f 61 63 74 |n text_e|ntry_act|
|00000540| 2e 0d 53 69 6e 63 65 20 | 74 65 78 74 5f 65 6e 74 |..Since |text_ent|
|00000550| 72 79 5f 61 63 74 20 69 | 73 20 6c 6f 63 61 6c 2c |ry_act i|s local,|
|00000560| 20 69 74 20 63 61 6e 6e | 6f 74 20 62 65 20 66 6f | it cann|ot be fo|
|00000570| 75 6e 64 20 77 69 74 68 | 20 74 68 65 0d 66 69 6e |und with| the.fin|
|00000580| 64 20 64 65 66 69 6e 69 | 74 69 6f 6e 20 63 6f 6d |d defini|tion com|
|00000590| 6d 61 6e 64 2e 0d a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |mand....|........|
|000005a0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000005b0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000005c0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000005d0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000005e0| a5 a5 0d 20 2a 2f 0d 3a | 2d 20 6e 6f 74 28 6d 65 |... */.:|- not(me|
|000005f0| 6e 75 28 66 6f 72 6d 61 | 74 5f 6d 65 6e 75 2c 20 |nu(forma|t_menu, |
|00000600| 5f 29 29 20 2d 3e 0d 09 | 65 72 72 6f 72 28 34 2c |_)) ->..|error(4,|
|00000610| 20 22 55 6e 61 62 6c 65 | 20 74 6f 20 63 72 65 61 | "Unable| to crea|
|00000620| 74 65 20 66 6f 6e 74 20 | 73 69 7a 65 20 73 75 62 |te font |size sub|
|00000630| 6d 65 6e 75 2e 0d 54 68 | 65 20 66 6f 72 6d 61 74 |menu..Th|e format|
|00000640| 20 6d 65 6e 75 20 6d 75 | 73 74 20 62 65 20 64 65 | menu mu|st be de|
|00000650| 66 69 6e 65 64 20 62 65 | 66 6f 72 65 20 74 68 69 |fined be|fore thi|
|00000660| 73 20 0d 65 78 61 6d 70 | 6c 65 20 70 72 6f 67 72 |s .examp|le progr|
|00000670| 61 6d 20 63 61 6e 20 62 | 65 20 72 75 6e 2e 20 20 |am can b|e run.  |
|00000680| 54 68 65 20 66 6f 72 6d | 61 74 20 6d 65 6e 75 20 |The form|at menu |
|00000690| 69 73 20 64 65 66 69 6e | 65 64 20 0d 69 6e 20 74 |is defin|ed .in t|
|000006a0| 68 65 20 66 69 6c 65 20 | 27 3a 3a 45 6e 76 69 72 |he file |'::Envir|
|000006b0| 6f 6e 6d 65 6e 74 3a 66 | 6f 72 6d 61 74 20 6d 65 |onment:f|ormat me|
|000006c0| 6e 75 2e 70 27 2e 0d 4f | 70 65 72 61 74 69 6f 6e |nu.p'..O|peration|
|000006d0| 20 61 62 6f 72 74 65 64 | 2e 22 2c 20 5f 2c 20 5f | aborted|.", _, _|
|000006e0| 2c 20 5f 2c 20 5f 2c 20 | 5f 2c 20 5f 2c 20 5f 29 |, _, _, |_, _, _)|
|000006f0| 2c 0d 09 61 62 6f 72 74 | 2e 0d 2f 2a 0d 20 2a 20 |,..abort|../*. * |
|00000700| 43 72 65 61 74 65 20 61 | 20 6e 65 77 20 6d 65 6e |Create a| new men|
|00000710| 75 20 66 6f 72 20 66 6f | 6e 74 20 73 69 7a 65 73 |u for fo|nt sizes|
|00000720| 2e 0d 20 2a 2f 0d 3a 2d | 20 63 72 65 61 74 65 28 |.. */.:-| create(|
|00000730| 6d 65 6e 75 2c 20 5f 2c | 20 66 6f 6e 74 5f 73 69 |menu, _,| font_si|
|00000740| 7a 65 5f 6d 65 6e 75 2c | 20 27 46 6f 6e 74 20 53 |ze_menu,| 'Font S|
|00000750| 69 7a 65 27 2c 20 30 2c | 20 74 72 75 65 29 2e 0d |ize', 0,| true)..|
|00000760| 2f 2a 0d 20 2a 20 41 64 | 64 20 73 74 61 6e 64 61 |/*. * Ad|d standa|
|00000770| 72 64 20 66 6f 6e 74 20 | 73 69 7a 65 73 2e 0d 20 |rd font |sizes.. |
|00000780| 2a 2f 0d 3a 2d 20 09 6d | 65 6d 62 65 72 28 46 6f |*/.:- .m|ember(Fo|
|00000790| 6e 74 53 69 7a 65 2c 20 | 5b 39 2c 31 30 2c 31 32 |ntSize, |[9,10,12|
|000007a0| 2c 31 34 2c 31 38 5d 29 | 2c 0d 09 73 74 72 69 6e |,14,18])|,..strin|
|000007b0| 67 28 46 6f 6e 74 53 69 | 7a 65 2c 20 46 6f 6e 74 |g(FontSi|ze, Font|
|000007c0| 53 69 7a 65 53 74 72 69 | 6e 67 29 2c 0d 09 65 78 |SizeStri|ng),..ex|
|000007d0| 70 6c 6f 64 65 28 4d 65 | 6e 75 49 74 65 6d 4e 61 |plode(Me|nuItemNa|
|000007e0| 6d 65 2c 20 5b 27 73 69 | 7a 65 27 2c 20 46 6f 6e |me, ['si|ze', Fon|
|000007f0| 74 53 69 7a 65 53 74 72 | 69 6e 67 5d 29 2c 0d 09 |tSizeStr|ing]),..|
|00000800| 61 64 64 5f 6d 65 6e 75 | 5f 69 74 65 6d 28 66 6f |add_menu|_item(fo|
|00000810| 6e 74 5f 73 69 7a 65 5f | 6d 65 6e 75 2c 20 4d 65 |nt_size_|menu, Me|
|00000820| 6e 75 49 74 65 6d 4e 61 | 6d 65 2c 20 46 6f 6e 74 |nuItemNa|me, Font|
|00000830| 53 69 7a 65 53 74 72 69 | 6e 67 2c 20 0d 09 28 67 |SizeStri|ng, ..(g|
|00000840| 65 74 5f 66 6f 6e 74 28 | 61 63 74 69 76 65 5f 6f |et_font(|active_o|
|00000850| 62 6a 65 63 74 2c 20 46 | 6f 6e 74 4e 61 6d 65 2c |bject, F|ontName,|
|00000860| 20 5f 29 2c 20 0d 09 20 | 73 65 74 5f 66 6f 6e 74 | _), .. |set_font|
|00000870| 28 61 63 74 69 76 65 5f | 6f 62 6a 65 63 74 2c 20 |(active_|object, |
|00000880| 46 6f 6e 74 4e 61 6d 65 | 2c 20 46 6f 6e 74 53 69 |FontName|, FontSi|
|00000890| 7a 65 29 29 2c 20 0d 09 | 73 61 6d 65 29 2c 0d 09 |ze)), ..|same),..|
|000008a0| 66 61 69 6c 2e 0d 0d 2f | 2a 0d 20 2a 20 41 64 64 |fail.../|*. * Add|
|000008b0| 20 61 6e 20 6f 70 74 69 | 6f 6e 20 66 6f 72 20 61 | an opti|on for a|
|000008c0| 20 75 73 65 72 20 63 68 | 6f 73 65 6e 20 73 69 7a | user ch|osen siz|
|000008d0| 65 2e 0d 20 2a 20 54 68 | 69 73 20 69 73 20 74 68 |e.. * Th|is is th|
|000008e0| 65 20 73 61 6d 65 20 61 | 73 20 74 68 65 20 73 65 |e same a|s the se|
|000008f0| 74 20 66 6f 6e 74 20 73 | 69 7a 65 20 70 72 6f 76 |t font s|ize prov|
|00000900| 69 64 65 64 20 69 6e 20 | 74 68 65 20 66 6f 72 6d |ided in |the form|
|00000910| 61 74 20 6d 65 6e 75 0d | 20 2a 20 61 73 20 73 74 |at menu.| * as st|
|00000920| 61 6e 64 61 72 64 20 69 | 6e 20 74 68 65 20 73 79 |andard i|n the sy|
|00000930| 73 74 65 6d 2e 0d 20 2a | 2f 0d 3a 2d 20 61 64 64 |stem.. *|/.:- add|
|00000940| 5f 6d 65 6e 75 5f 69 74 | 65 6d 28 66 6f 6e 74 5f |_menu_it|em(font_|
|00000950| 73 69 7a 65 5f 6d 65 6e | 75 2c 20 73 65 74 5f 66 |size_men|u, set_f|
|00000960| 6f 6e 74 5f 73 69 7a 65 | 2c 20 27 4f 74 68 65 72 |ont_size|, 'Other|
|00000970| ca c9 27 2c 0d 09 28 09 | 67 65 74 5f 66 6f 6e 74 |..',..(.|get_font|
|00000980| 28 61 63 74 69 76 65 5f | 6f 62 6a 65 63 74 2c 20 |(active_|object, |
|00000990| 46 6f 6e 74 4e 61 6d 65 | 2c 20 46 6f 6e 74 53 69 |FontName|, FontSi|
|000009a0| 7a 65 29 2c 20 0d 09 09 | 63 72 65 61 74 65 28 70 |ze), ...|create(p|
|000009b0| 6f 73 5f 69 6e 74 5f 65 | 6e 74 72 79 5f 77 69 6e |os_int_e|ntry_win|
|000009c0| 64 6f 77 2c 20 57 69 6e | 64 6f 77 2c 20 5b 39 38 |dow, Win|dow, [98|
|000009d0| 2c 20 31 37 34 2c 20 31 | 36 38 2c 20 33 38 34 5d |, 174, 1|68, 384]|
|000009e0| 2c 20 0d 09 09 09 27 45 | 6e 74 65 72 20 46 6f 6e |, ....'E|nter Fon|
|000009f0| 74 20 53 69 7a 65 3a 27 | 2c 20 46 6f 6e 74 53 69 |t Size:'|, FontSi|
|00000a00| 7a 65 2c 20 0d 09 09 09 | 28 64 65 73 74 72 6f 79 |ze, ....|(destroy|
|00000a10| 28 63 6f 6e 73 74 61 6e | 74 28 61 63 74 69 76 65 |(constan|t(active|
|00000a20| 5f 77 69 6e 64 6f 77 29 | 29 2c 0d 09 09 09 20 73 |_window)|),.... s|
|00000a30| 65 74 5f 66 6f 6e 74 28 | 61 63 74 69 76 65 5f 6f |et_font(|active_o|
|00000a40| 62 6a 65 63 74 2c 20 46 | 6f 6e 74 4e 61 6d 65 2c |bject, F|ontName,|
|00000a50| 20 0d 09 09 09 20 09 09 | 63 6f 6e 73 74 61 6e 74 | .... ..|constant|
|00000a60| 28 76 61 6c 75 65 29 29 | 29 2c 0d 09 09 09 61 63 |(value))|),....ac|
|00000a70| 74 69 76 65 5f 77 69 6e | 64 6f 77 29 29 2c 0d 09 |tive_win|dow)),..|
|00000a80| 73 61 6d 65 29 2e 0d 0d | 2f 2a 0d 20 2a 20 48 65 |same)...|/*. * He|
|00000a90| 72 65 20 77 65 20 77 69 | 6c 6c 20 69 6e 73 74 61 |re we wi|ll insta|
|00000aa0| 6c 6c 20 74 68 69 73 20 | 6d 65 6e 75 20 61 73 20 |ll this |menu as |
|00000ab0| 61 20 73 75 62 6d 65 6e | 75 20 69 6e 73 69 64 65 |a submen|u inside|
|00000ac0| 20 74 68 65 20 66 6f 72 | 6d 61 74 20 6d 65 6e 75 | the for|mat menu|
|00000ad0| 0d 20 2a 20 64 65 66 69 | 6e 65 64 20 69 6e 20 74 |. * defi|ned in t|
|00000ae0| 68 65 20 73 74 61 6e 64 | 61 72 64 20 70 72 6f 6c |he stand|ard prol|
|00000af0| 6f 67 20 69 6e 74 65 72 | 66 61 63 65 20 70 72 6f |og inter|face pro|
|00000b00| 76 69 64 65 64 2e 20 20 | 54 68 65 20 66 6f 72 6d |vided.  |The form|
|00000b10| 61 74 20 6d 65 6e 75 0d | 20 2a 20 69 73 20 64 65 |at menu.| * is de|
|00000b20| 66 69 6e 65 64 20 69 6e | 20 74 68 65 20 66 69 6c |fined in| the fil|
|00000b30| 65 20 27 3a 3a 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |e '::env|ironment|
|00000b40| 3a 66 6f 72 6d 61 74 20 | 6d 65 6e 75 2e 70 27 2e |:format |menu.p'.|
|00000b50| 0d 20 2a 2f 0d 3a 2d 20 | 6d 65 6e 75 28 66 6f 72 |. */.:- |menu(for|
|00000b60| 6d 61 74 5f 6d 65 6e 75 | 2c 20 5f 29 20 2d 3e 0d |mat_menu|, _) ->.|
|00000b70| 09 61 64 64 5f 73 75 62 | 5f 6d 65 6e 75 28 66 6f |.add_sub|_menu(fo|
|00000b80| 72 6d 61 74 5f 6d 65 6e | 75 2c 20 73 65 74 5f 66 |rmat_men|u, set_f|
|00000b90| 6f 6e 74 5f 73 69 7a 65 | 2c 20 0d 09 09 27 53 65 |ont_size|, ...'Se|
|00000ba0| 74 20 46 6f 6e 74 20 53 | 69 7a 65 ca c9 27 2c 0d |t Font S|ize..',.|
|00000bb0| 09 09 66 6f 6e 74 5f 73 | 69 7a 65 5f 6d 65 6e 75 |..font_s|ize_menu|
|00000bc0| 2c 20 73 61 6d 65 29 2c | 0d 20 20 20 65 72 72 6f |, same),|.   erro|
|00000bd0| 72 28 32 2c 20 22 41 20 | 66 6f 6e 74 20 73 69 7a |r(2, "A |font siz|
|00000be0| 65 20 73 75 62 6d 65 6e | 75 20 68 61 73 20 62 65 |e submen|u has be|
|00000bf0| 65 6e 20 73 75 63 63 65 | 73 73 66 75 6c 6c 79 20 |en succe|ssfully |
|00000c00| 0d 69 6e 73 74 61 6c 6c | 65 64 20 69 6e 20 74 68 |.install|ed in th|
|00000c10| 65 20 46 6f 72 6d 61 74 | 20 4d 65 6e 75 2e 22 2c |e Format| Menu.",|
|00000c20| 20 5f 2c 20 5f 2c 20 5f | 2c 20 5f 2c 20 5f 2c 20 | _, _, _|, _, _, |
|00000c30| 5f 2c 20 5f 29 2e 0d 20 | 00 00 00 00 00 00 00 00 |_, _).. |........|
|00000c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c80| 00 00 01 00 00 00 01 22 | 00 00 00 22 00 00 00 5a |......."|..."...Z|
|00000c90| 94 66 c8 65 e2 24 a2 b7 | 18 42 b6 8f 03 ac b9 00 |.f.e.$..|.B......|
|00000ca0| 64 34 84 c5 1d 1e 4e c2 | 24 00 eb 92 7f 61 7c b5 |d4....N.|$....a|.|
|00000cb0| 10 66 6f 6e 74 20 73 69 | 7a 65 20 6d 65 6e 75 2e |.font si|ze menu.|
|00000cc0| 70 6e 02 00 00 00 54 45 | 58 54 41 49 46 43 01 00 |pn....TE|XTAIFC..|
|00000cd0| 00 00 54 45 58 54 41 49 | 46 43 01 00 00 78 00 00 |..TEXTAI|FC...x..|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 a5 b8 30 70 00 00 | 0b b8 00 00 01 7c 62 cc |....0p..|.....|b.|
|00000d00| a0 cc 01 70 82 25 ff 90 | c5 01 bb e7 0e f0 c4 4a |...p.%..|.......J|
|00000d10| 26 64 bf 24 27 2f 77 2e | 4e 91 64 30 f6 6f 16 67 |&d.$'/w.|N.d0.o.g|
|00000d20| af 0f 9d 80 30 6f 4a 85 | ed 18 a6 98 54 64 bf 00 |....0oJ.|....Td..|
|00000d30| 15 e1 27 86 f8 80 87 0b | 73 23 38 19 94 1b 96 4b |..'.....|s#8....K|
|00000d40| f5 86 ce fc ca 54 86 e7 | 0c 8b 52 0a 62 f9 1b 85 |.....T..|..R.b...|
|00000d50| 94 bd 3c f7 03 89 79 f2 | 3c ad b7 59 25 2d f0 99 |..<...y.|<..Y%-..|
|00000d60| d1 fb ed f1 92 eb 6c 89 | 32 86 2e 53 02 90 4d 0c |......l.|2..S..M.|
|00000d70| a4 b0 a0 4a b2 de 0e 6e | 74 0f 74 a8 13 77 13 57 |...J...n|t.t..w.W|
|00000d80| 00 00 00 0a 00 0c 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00000d90| 00 08 00 4e 00 04 01 48 | 01 e2 00 00 00 04 00 38 |...N...H|.......8|
|00000da0| 00 08 00 00 01 00 00 00 | 01 22 00 00 00 22 00 00 |........|."..."..|
|00000db0| 00 5a 00 21 54 ac 06 40 | 00 00 00 1c 00 5a 00 02 |.Z.!T..@|.....Z..|
|00000dc0| 45 46 4e 54 00 00 00 1a | 45 57 4e 44 00 00 00 26 |EFNT....|EWND...&|
|00000dd0| 45 54 41 42 00 00 00 32 | 03 eb ff ff 00 00 00 00 |ETAB...2|........|
|00000de0| 00 21 a5 f8 01 00 ff ff | 00 00 00 0e 00 21 a2 b0 |.!......|.....!..|
|00000df0| 03 ec ff ff 00 00 00 1a | 00 21 a4 78 00 00 00 00 |........|.!.x....|
+--------+-------------------------+-------------------------+--------+--------+